home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / circuit_macros / examples / ex6.m4 < prev    next >
Text File  |  1994-03-13  |  2KB  |  63 lines
  1. .PS
  2. define(`HOMELIB_',`/u/aplevich/lib')
  3. ifdef(`dline',,`include(HOMELIB_/darrow.m4)')
  4.  
  5. dx = 0.1
  6. circlerad = boxht*3/8
  7. extlen=4*dx
  8. boxwid = 0.75
  9. indel = boxht/3
  10. eps=0.01
  11. fillval = 0.8
  12.  
  13. COb: box fill_ "C$\bar{\mbox{O}}$"
  14. CO:box fill_ with .nw at last box.se+(dx,-dx) "CO"
  15. CbOb: box fill_ with .nw at last box.se+(dx,-dx) \
  16.    "$\bar{\mbox{C}}$$\bar{\mbox{O}}$"
  17. CbO: box fill_ with .nw at last box.se+(dx,-dx) "$\bar{\mbox{C}}$O"
  18.  
  19. dline(from CbO.s down_ dx,,t)
  20. dright
  21. {Sum: circle at (CO,Here)}
  22. darrow(to Sum.e)
  23.  
  24. SW: (COb.w,Sum.s)+(-2*dx-extlen/2,-dx)
  25. NE: (CbO.e,COb.n)+(dx,dx)
  26. right_; shadebox(box wid NE.x-SW.x ht NE.y-SW.y with .sw at SW)
  27.  
  28. U: COb.w-(2*dx+extlen,0)
  29. right_; "\bf u" rjust at U; {box invis fill_(1) ht dlinewid wid extlen}
  30. dend ; dline(right extlen,,t)
  31. TU: dtee(`up_')
  32. {darrow(to (COb.w,Here),t,)}
  33. dline(to (Here,CO),t,t)
  34. down_; dleft
  35. darrow(to CO.w)
  36.  
  37. dline(from CO.n to (CO,COb)-(0,indel),,t)
  38. up_; dleft; darrow(to (COb.e,Here))
  39.  
  40. dline(from CbOb.n to (CbOb,COb),,t)
  41. up_; dleft; darrow(to COb.e)
  42.  
  43. dline(from CbO.n-(indel,0) up_ boxht/2+dx,,t)
  44. dleft; darrow(to CbOb.e)
  45.  
  46. dline(from CbO.n to (CbO,CO),,t)
  47. up_; dleft
  48.    {box invis fill_(1) ht dlinewid wid boxwid+2*dx with .e at Here-(dx,0)}
  49.    darrow(to CO.e)
  50.  
  51. dline(from CbO.n+(indel,0) to (CbO,COb)+(indel,indel),,t)
  52. up_; dleft; darrow(to (COb.e,Here))
  53.  
  54. darrow(from CO.s to Sum.n)
  55.  
  56. move to Sum.w+(eps,0); left_
  57. {{line invis to (U,Here)}
  58.    box invis fill_(1) ht dlinewid wid last line.start.x-last line.end.x\
  59.    with .e at Here-(dx,0)}
  60. darrow(to (U,Here)); {"{\bf y}$-${\bf Du}" rjust at Here+(0.2,0.2*3/4)}
  61.  
  62. .PE
  63.